Contare ed escludere records

[fraude]

Ciao a tutti, da una query estraggo il valore strNome:

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objconn, 3, 3

Do Until objRs.Eof

strNome = objRS("nome")

objRs.MoveNext
Loop

Se volessi contare quante volte è presente strNome con lo stesso valore (ad esempio: Roma, Roma, Roma,...) ed escluderlo dalla stampa dei records, se lo stesso strNome è presente meno di 8 volte, come devo fare?

Grazie