Secondo me devi chiudere l'istanza di CDOSYS ogni volta, prima di passare al record successivo:
codice:
' istanza di CDO.Message
set CDOmail = CreateObject("CDO.Message")

CDOmail.To = email
CDOmail.From = "newsletter@prova.info"
CDOmail.Subject = "Newsletter"

' testo da inviare
CDOmail.HTMLBody = strHTML

' invio del messaggio
CDOmail.Send()

Set CDOmail = Nothing
End With
newslt.MoveNext