مشكلة تكرار البيانات في الداتا قريد فيو

السلام عليكم ..

عذراً على كثرة الاسئلة ولاكن مالي بعد الله سبحانه ألا انتو الله يحفظكم ..

أخواني أنا مشكلتي أبي احفظ الداتا قريد فيو على ملف مفكرة ( txt )

وهذا الكود اللي استخدمة

كود :

Dim myCoolFile_7 As String = Application.StartupPath & "\تقرير إدارة الأجهزة.txt"

        Dim myWriter_7 As New IO.StreamWriter(myCoolFile_7)

For Each myItem_7 As DataGridViewRow In DataGridView1.Rows

            myWriter_7.WriteLine("")

            myWriter_7.WriteLine("أسم الجهاز : " & DataGridView1.Rows(0).Cells(0).Value)

            myWriter_7.WriteLine("المعرف : " & DataGridView1.Rows(0).Cells(1).Value)

            myWriter_7.WriteLine("مشكلة الجهاز : " & DataGridView1.Rows(0).Cells(2).Value)

        Next

لاكن المشكلة إذا حفظ وفتحت المفكرة ( txt ) يجيني مثل كذا

كود :

أسم الجهاز : ‏‏وحدة تحكم الناقل التسلسلي العالمي (USB‏)

المعرف : PCI\VEN_1033&DEV_0194&SUBSYS_84131043&REV_04\4&DDEC341&0&00E1

مشكلة الجهاز : لم يتم تثبيت برنامج التشغيل لهذا الجهاز - جهاز غير معروف

ــــــــــــــــــــــــ

أسم الجهاز : ‏‏وحدة تحكم الناقل التسلسلي العالمي (USB‏)

المعرف : PCI\VEN_1033&DEV_0194&SUBSYS_84131043&REV_04\4&DDEC341&0&00E1

مشكلة الجهاز : لم يتم تثبيت برنامج التشغيل لهذا الجهاز - جهاز غير معروف

المختصر أنه يكرر نفس البيانات وما يعطيني كل البيانات اللي بالداتا قريد فيو

أتمنى مساعدتي بارك الله فيكم ..

كود :

for i as integer = 0 to DataGridView1.Rows.count-1

 myWriter_7.WriteLine("")

            myWriter_7.WriteLine("أسم الجهاز : " & DataGridView1.Rows(i).Cells(0).Value)

            myWriter_7.WriteLine("المعرف : " & DataGridView1.Rows(i).Cells(1).Value)

            myWriter_7.WriteLine("مشكلة الجهاز : " & DataGridView1.Rows(i).Cells(2).Value)

        Next