Couple of "suggestions".
Firstly you will find this a lot easier if the emails you are attempting to copy are in a specific location. so for example if you create a folder called "temp" in your inbox, and an outlook rule to move all message with the subject "whatever" into this folder, you can run a macro to copy the information you need from every email in this folder, which has the advantage of speed (It won't have to check your entire inbox to look for the relevant emails).
If the emails are all in a folder (called "temp" in this instance) then the following code will copy the information from each email to "Sheet1"
however, you still have a couple of "issues".
Function EmailText() As String
Dim ObjOutlook As Object
Dim MyNamespace As Object
Dim i As Integer
Set ObjOutlook = GetObject(, "Outlook.Application")
Set MyNamespace = ObjOutlook.GetNamespace("MAPI")
For i = 1 To MyNamespace.getdefaultfolder(6).Folders("temp").items.Count
Sheet1.Cells(i, 1).Value = MyNamespace.getdefaultfolder(6).Folders("temp").items(i).body
Set ObjOutlook = Nothing
Set MyNamespace = Nothing
Issue 1 - Although the lines are separated by an "enter", and copy and paste will correctly fill columns like this, vba will not. It will put the entire contents of the email body into cell A1 (which is probably not what you want)
Issue 2 - when you run this, it will ask you if you will allow excel to talk to your outlook, which means you will have to be there to push the ok button
Issue 3 - This will always copy every email in the folder, so you will have to delete or move them after you have the relvant information
Issue 4 - You probably don't want the information always going into A1, but without more information, I don't know where you do want it.