例えば、ComboBox1.Textを３行目に書きたい場合、
下記のようになります。
これで回答になっていますでしょうか？

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
         Try
             Dim csvPath As String = "予定.csv" '保存先のCSVファイルのパス
            Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")
             Dim sr As New System.IO.StreamWriter(csvPath, False, enc) '開く
             sr.WriteLine("")
             sr.WriteLine("")
             sr.WriteLine(ComboBox1.Text)
             sr.Close()
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
     End Sub