Imprimir de 10 en 10

[Cuezaltzin]

Mira tengo el siguiente codigo el cual me imprime todo dentro de una columna en mi tabla:
<%

do while not lobjRst.EOF

USAGES = lobjrst.fields("EBA")
cadena = USAGES

%>
<tr>

<td Textheight="10%" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px">
<%for i=1 to 100 %>
<font face="Verdana" size="1" color="#666666">
<%response.write Mid(Cadena,i,1)%>&nbsp
</font>
<%next%></td>

</tr>

<% lobjRst.MoveNext
loop
lobjRst.Close
%>

Y necesito que me haga lo del codigo anterior que me imprima en cada columna solo 10 caracteres, que me imprima 10 columnas cada una con 10 caracteres.

Gracias por tu ayuda U_Goldman