La posizione del carrello coincide con RichTextBox.SelectionStart. Da questo puoi usare la funzione RichTextBox.GetLineFromCharIndex(Index) per ottenere l'indice della linea sulla quale si trova il cursorse, quindi:
codice:
Dim Line As Int32 
With RichTextBox1
  Line = .GetLineFromCharIndex(.SelectionStart) + 1
End With