¿No será mejor hacerlo así?
Código vb:
Ver originalFor i As Integer = 0 To a
If cadena = textbox.Lines(i) Then Exit Sub
Next
textbox.AppendText(vbCrLf & vbCrLf & cadena)
Lo que hacemos en este caso es recorrer todas las líneas hasta encontrar una repetida, si es repetida, salimos del Sub, si no encuentra ninguna repetida terminará el bucle con lo que agregará el texto.