Your code is doing exactly what you've told it to do - take the value from the "Type of Learners" column on the first row of the result, and insert it into cell 66,8 in your sheet.
If you want to insert data from multiple rows, then you need to loop over the rows and insert the data accordingly.
Dim rowIndex As Integer = 0
For Each row As DataRow In dt
xlNewSheet.Cells(66 + rowIndex, 8) = row("Type of Learners")
xlNewSheet.Cells(66 + rowIndex, 9) = row("COUNT")