For Each objItem in objItems --- altına; i = i +1
next --- satırının üzerine: if i = 6 then response.end

Bunlar ile en üstten 6 haberi çekebilirsin. Örnek olarak ntvmsnbc için:

<%
Dim objXML, objRoot, objItems
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load("http://www.ntvmsnbc.com/id/24927361/device/rss/rss.xml")
If (objXML.parseError.errorCode = 0) Then
Set objRoot = objXML.documentElement
If IsObject(objRoot) = False Then
response.write "<li>Connection Error!"
End If
Set objItems = objRoot.getElementsByTagName("item")
If IsObject(objItems) = True Then
For Each objItem in objItems
i = i +1
link = objItem.selectSingleNode("link").Text
description = objItem.selectSingleNode("description").Text
%>  

<%=description%><br>

<%
if i = 8 then response.end
Next
else
response.write "<li>Connection Error!"
End If
Set objItems = Nothing
Set objRoot = Nothing
End If
Set objXML = Nothing
%>

Ayrıca ilki resimli, diğerleri resimsiz olsun dediğin şeyi ne amaçla kullanacaksın? Daha pratik bir yolu vardır belki.. Yazdığın şekilde, for döngüsünün içerisine ne koyarsan listeletmek istediğin kadar içerisindekilerde çoğalır