Дмитрий 2000, для этого надо почаще выходить в город. В среднем в районе от 2х до 4ех вампиров NPC. Так что ходи, ищи и обязательно наткнешься в каком-нибудь клубе на этих вурдалаков
Кстати, есть еще один способ познакомиться с вампиром. Для этого необходимо дополнение Бизнесс. За развитие своего предприятия симу даются бонусы. Так вот, в категории "Связи" можно выбрать возможность позвонить любому симу, даже не знакомому. Так сразу можно найти всех вампиров)