Access - Sumar impuesto cada 7 dias

Hola sres, estoy realizando un bd de prestamos, es decir hago prestamos a clientes, y necesito cargarles un impuesto por cada semana vencida despues de la fecha inicial, el problema es que yo puse el codigo de la siguiente manera:

------------------------

DF = DateDiff("d", Dfecha_ini.Value, Dfecha_act.Value)

If DF >= 7 Then

Dsemana_vencida.Value = Cdeuda_ini.Value * 0.035 * DF / 7

Else

Dsemana_vencida.Value = 0

End If
______________

Eso me funciona, el problema es que si por ejemplo han transcurrido 9 dias, me muestra el resultado proporcional y yo quiero q solo me muestre el impuesto de 7 y hasta q sean 14 me muestre de nuevo el cargo de dos semanas...

Espero me puedan ayudar..

Gracias, se los agradezco

Public k as integer
k=1


DF = DateDiff("d", Dfecha_ini.Value, Dfecha_act.Value)

If DF= k*7 Then
k=k+1
Dsemana_vencida.Value = Cdeuda_ini.Value * 0.035 * DF / 7
Else
Dsemana_vencida.Value = 0
End If

Hola muchas gracias por contestar, eso que me enviaste si funciono parcialmente, no se si yo estoy haciendo algo mal, pero lo hice como me enviaste el codigo y al pasar una semana si me hace el cargo pero pasa un dia mas y se regresa a cero es por la condicion q yo le puse pero como le puedo hacer para q mientras no llegue a la segunda semana se mantenga en el primer cargo q se le hizo por los primeros 7 dias ??

DF = DateDiff("d", Dfecha_ini.Value, Dfecha_act.Value)

If DF >= 7 Then

Dsemana_vencida.Value = Cdeuda_ini.Value * 0.035 * entero(DF / 7)

Else

Dsemana_vencida.Value = 0

End If