Split関数を使います。

Option Explicit

Sub test()

    Dim arr() As String, i As Integer, msg As String, result As String
    
    msg = Range("B2")
    
    arr = Split(msg, vbLf)
    
    For i = LBound(arr) To UBound(arr)
        result = arr(i)
        MsgBox result
    Next i
    
End Sub

解説

arr = Split(msg, vbLf)

Split関数で、改行ごとに配列に格納。
Split関数は、配列を返します。
vbLfは、改行のことです。